Program Exemplo501;
Var
 arq1 : text;

begin
  assign (arq, 'c\users\homero\unb\iccnovo\Applets\applets cap 5\arq501.txt');
end.